1 .MANUAL ASSEMBLER
2 . R.BRADDAM
3 .
4 .
5 .
10 clear 
20 @(0)=243;B=1
30 print #1,16384+B,"=",;input " "@(B)
40 if @(B)<256 B=B+1;goto 30
50 @(B)=118
60 C=B
70 input "START RECORDER, WAIT 3 OR 4 SECONDS, THEN ENTER ANY NUMBER AND PRESS GO."W
80 :print 
90 for B=0to C
100 TV=@(B);for D=1to 8;next D
110 next B
120 for B=Cto 128;TV=118;for D=1to 8;next B
130 :return ;STOP
:return ;run 
